home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 November & December / rerun-1990-11-12.d64 / text fx-4 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  417b  |  8 lines
  1. 10 if a=0 then a=1:load "text fx",8,1:rem load text fx
  2. 20 poke 826,0:rem always, always use this poke before using window commands!
  3. 30 sa=49152:cf=sa+12:tf=sa+15:ws=sa+18:rem define variables
  4. 40 sys ws,10,10,20,20:rem save a window
  5. 50 sys cf,10,10,20,20,1:rem fill the window with the color white
  6. 60 sys tf,10,10,20,20,160:rem fill the window with reversed spaces
  7. 70 sys tf,11,11,19,19,32:rem clear a smaller window inside the larger one
  8.